home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
tbbs
/
prgsourc.zip
/
HOMES.ZIP
/
LVIEW.PRG
< prev
next >
Wrap
Text File
|
1995-12-31
|
2KB
|
96 lines
PROCEDURE lview
SET ORDER TO 2
GOTO TOP
untg = .F.
one = .F.
last = .F.
x = 1
SEEK tarray[x]
DO tt
IF tarray[2] # "EMPTY"
DO ts
ENDIF
DO vscr
DO view
SET COLOR TO N/N
@ 2,0 GET charin
DO WHILE .T.
READ
DO CASE
CASE Lastkey() = 27 && <Esc>
EXIT
CASE LastKey() = 5 && <Up Arrow>
SET COLOR TO W+/N
IF untg
untg = .F.
IF x = 1 .AND. one
one = .F.
LOOP
untg = .T.
ENDIF
ELSE
IF x = 1
LOOP
ENDIF
x = x - 1
ENDIF
SEEK tarray[x]
DO view
CASE LastKey() = 24 && <Dn Arrow>
SET COLOR TO W+/N
IF tarray[x] = "EMPTY"
LOOP
ENDIF
IF untg
untg =.F.
IF last
last = .F.
untg = .T.
LOOP
ENDIF
ELSE
x = x + 1
IF tarray[x] = "EMPTY"
x = x - 1
LOOP
ENDIF
ENDIF
SEEK tarray[x]
DO view
LOOP
CASE LastKey() = 84 .OR. LastKey() = 116 && T or t
SET COLOR TO W+/N
DO tag WITH tg
DO CASE
CASE tg = 0
LOOP
CASE tg = 1
x = 1
LOOP
CASE tg = 2
IF tarray[x] = "EMPTY"
last = .T.
ENDIF
IF x = 1
one = .T.
ELSE
x = x - 1
ENDIF
untg = .T.
ENDCASE
OTHERWISE
LOOP
ENDCASE
ENDDO
SET ORDER TO 1
RETURN